home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 10.st / info_src.arc / MOD_TYPE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-01  |  4.0 KB  |  108 lines
  1. {InfoBaseST by James W. Maki (c) Copyright 1990 by Antic Publishing, Inc.}
  2. {
  3.                  *****    Miscellaneous Data Types    *****
  4. }
  5.     Str50 = String[50] ;
  6.     Str20 = String[20] ;
  7.     StrChar = String[1] ;
  8. {
  9. ***************************************************************************
  10. *                 -------------                                           *
  11. *  Data Store -- | D3 | Data                                              *
  12. *                 -------------                                           *
  13. ***************************************************************************
  14.  
  15.          All data is stored in the record DataStore.  Pointers to the
  16.     first DataStore record are stored in the DataInfo record.  
  17.     DataInfo^.Data points to the first DataStore record and 
  18.     additional DataStore records are pointed to by DataStore^.Next.
  19.  
  20.          DataInfo^.Next and Prev are list pointers.  OrderMore and 
  21.     OrderLess are used by sort routines to organize the records in a
  22.     particular order using a binary sort.
  23.  
  24.                     *****    D3 | DATA DICTIONARY    *****
  25. }
  26.     DataStorePtr = ^DataStore ;
  27.     DataStore    = record
  28.                     DataStr : Str50 ;
  29.                     Next    : DataStorePtr ;
  30.                    end ;
  31.  
  32.     DataPtr = ^DataInfo ;
  33.     DataInfo = record
  34.                 Next,
  35.                 Prev,
  36.                 OrderMore,
  37.                 OrderLess : DataPtr ;
  38.                 Data      : DataStorePtr ;
  39.               end ;
  40.  
  41. {
  42. ****************************************************************************
  43. *                 ------------------                                       *
  44. *  Data Store -- | D1 | Design Specs                                       *
  45. *                 ------------------                                       *
  46. ****************************************************************************
  47.  
  48.              Screen Design Data Store.  The X and Y variable would 
  49.         be the x and y coordinants, window relative, of the 
  50.         label. XPos and YPos are the x and y coordinants of the Data Input 
  51.         Area. XInPos is the variable X coordinant for data base input.
  52.         Offset and Size refer to the location and the size of the data
  53.         string stored in the DataInfo record.  LabelStr is the Label 
  54.         displayed on the screen as well as the field name used in search
  55.         procedures.
  56.  
  57.              Next and Prev are pointers to the Next and Prev ScrInfo 
  58.         records.
  59.  
  60.              DataType is a code indicating the way the data should be 
  61.         treated.  The type of data are :
  62.         
  63.                    A : String
  64.                    B : Boolean : CheckMark Toggle Switch/Length 1
  65.                    C : Integer
  66.                    D : Long_Integer
  67.                    E : Real
  68.                    F : Dollar
  69.                    G : Date
  70.                    H : Name
  71.  
  72.                     *****    D1 | DATA DICTIONARY    ***** 
  73. }
  74.     ScrPtr = ^ScrInfo ;
  75.     ScrInfo = record
  76.                 LabelStr   : Str20 ;
  77.                 DataType   : char ;
  78.                 X, Y,
  79.                 XInPos,
  80.                 XPos, 
  81.                 YPos,
  82.                 Offset,
  83.                 Size       : short_integer ;
  84.                 Next,
  85.                 Prev       : ScrPtr ;
  86.               end ;
  87.  
  88.    IntPtr = ^IntStore ;
  89.    IntStore = record
  90.                 Match : short_integer ;
  91.                 Next,
  92.                 Prev  : IntPtr ;
  93.               end ;
  94.  
  95. {
  96. ****************************************************************************
  97. *                 -------------------                                      *
  98. *  Data Store -- | D2 | Screen Design                                      *
  99. *                 -------------------                                      *
  100. ****************************************************************************
  101.  
  102.           Menu Design variables
  103. }
  104.     GemMenu = record
  105.                 Title : array[1..5]  of short_integer ;
  106.                 Item  : array[1..25] of short_integer ;
  107.               end ;
  108.